home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / reader.g < prev    next >
Text File  |  1997-01-14  |  1KB  |  56 lines
  1. G4C
  2.  
  3.  
  4. winbig 0 11 640 220 "CLI-Master"
  5. wintype 11110001
  6. winout nil:
  7.  
  8.  
  9. xonopen
  10. ifexists file env:.tempfile
  11.     lvchange reader.g 1 env:.tempfile
  12. else
  13.     lvchange reader.g 1 $cmst_select
  14. endif
  15. setvar cmst_fname $cmst_select
  16. gosub reader.g ext
  17. setwintitle reader.g 'File : $cmst_file                                   '
  18.  
  19. xonclose
  20. lvclear reader.g 1
  21. lvdir climaster $cmst_srce none
  22. delvar cmst_pname
  23. delvar cmst_file
  24. delvar cmst_fname
  25.  
  26.  
  27. xlistview 0 0 0 0 "" "" "" 40 num
  28. gadid  1
  29. gadfont topaz.font 8 000
  30.  
  31. xmenu Project "Load..." "" ""
  32. extract cmst_select path cmst_pname
  33. extract cmst_pname unquote cmst_pname
  34. reqfile -1 -1 300 -40 "Select File.." load cmst_fname $cmst_pname
  35. if $cmst_fname = ""
  36.     stop
  37. else
  38.     gosub reader.g ext
  39.     lvchange reader.g 1 $cmst_fname
  40.     setwintitle reader.g 'File : $cmst_file                                   '
  41. endif
  42.  
  43. xmenu Project "Edit..." "" ""
  44. cli '$DEF.EDITOR $cmst_fname'
  45. lvchange reader.g 1 $cmst_fname
  46.  
  47. xmenu Project barlabel "" ""
  48.  
  49. xmenu Project "Exit..." "" ""
  50. guiclose reader.g
  51.  
  52. xroutine ext
  53. extract cmst_fname file cmst_file
  54. extract cmst_file clean cmst_file
  55. return
  56.